تمرین بعدی:

  2-الگوریتمی بنویسید که عمق درخت دودویی را پیدا کند:

جواب)

function BinaryTreeDepth(Tree): Integer
var
  LeftDepth, RightDepth: Integer
begin
  if IsBranch(Tree.Left) then
    LeftDepth := BinarTreeDepth(Tree.Left)x
  else
    LeftDepth := 0
  if IsBranch(Tree.Right) then
    RightDepth := BinarTreeDepth(Tree.Right)x
  else
    RightDepth := 0
  if LeftDepth > RightDepth then
    return LeftDepth + 1
  else
    return RightDepth + 1
end

========================

2-الگوریتمی که درخت دودویی را کپی کند

جواب)

node copy(node *T)x
{
node *st
if (t != null)x
{
st= new (node);x
st -> left=copy(t->left)x
st->right=copy(t->right)x
st->data=t->data
return st;x
else  return null;x
}

 

.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
. amolfar.ir ® © 2013